home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 4
/
FM Towns Free Software Collection 4 - Disc 1.iso
/
fb386
/
egcg1
/
g03.bas
< prev
next >
Wrap
BASIC Source File
|
1991-10-18
|
609b
|
22 lines
100 ' G03 T.WAKAMATSU
110 DIM A(730),B(730),C(730),D(730)
120 CL(1)=6:CL(2)=5:PI=3.14159!:F=2/3*PI
130 FOR I=0 TO 720
140 T=I*PI/180
150 X0=300*COS(T*2.5!)+320:Y0= 239*SIN(T*1.5!) +240
160 X1=239*COS(T*2!+F)+398:Y1=-239*SIN(T*2.5!+F)+240
170 K=K+1
180 A(K)=X0:B(K)=Y0:C(K)=X1:D(K)=Y1
190 NEXT I
200 L=30:CLS
210 FOR S=1 TO 2
220 FOR Z=1 TO K-1
230 LINE(A(Z),B(Z))-(C(Z),D(Z)),PSET,CL(S)
240 IF Z-L<=0 THEN 260
250 LINE(A(Z-L),B(Z-L))-(C(Z-L),D(Z-L)),PSET,0
260 NEXT Z
270 FOR J=K-1-L TO K-1
280 LINE(A(J),B(J))-(C(J),D(J)),PSET,0
290 NEXT J
300 NEXT S